a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 
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FRFFFFFFFE 000000 RRRRRRRR EEEEEEEEEE RRRRRRRR RRRRRRRR 

FFFEFFFFFF 000000 RRRRRRRR EEEEEEEEEE RRRRRRRR RRRRRRRR 

FF 00 00 RR RR EE RR RR RR RR 

FF 00 00 RR RR EE RR RR RR RR 

FF 00 00 RR RR EE RR RR RR RR 

FF 00 00 RR RR EE RR RR RR R 

FFFFFFFF 00 00 RRRRRRRR EEEEEEEE RRRRRRRR RRRRRRRR 

FFFFFFFF 00 00 RRRRRRRR EEEEEEEE RRRRRRRR RRRRRRRR 

FF 00 OO RR RR EE RR RR RR_ RR 

FF 00 00 RR RR EE RR RR RR RR 

FF 00 00 RR RR EE RR RR RR RR eoee 
FF 00 00 RR RR EE RR RR RR RR cos 
FF 000000 RR RR EEEEEEEEEE RR RR RR RR eoee 
FF 000000 RR RR EEEEEEEEEE RR RR RR RR eeeve 


SSSSSSSS DDDDDDDD LL 
SSSSSSSS Semin . LL 


S$ DD LL 
SS Dd DD LL 
$$ DD DD LL 
SS DD DD LL 
SSSSSS D DD LL 
SSSSSS DD DD LL 
SS DD DD LL 

SS OD DD LL 

5: DD DD LL 


DD DD LL 
SSSSSSSS DDDDDDDD LLLLLLLLLLE 
SSSSSSSS DDDDDDDD LLLLLLLLLL 


N 
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REQUIRE file for FORTRAN error st tee (STS$V_CODE) 
Filename: FORERR.SDL Edit: SBL20 


Cee eee eee eee EERE HAAR ARE EA AA ARETE AAEAAEAEAAAAAAERERAAATA ARTE e eee Tes 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

® 

* 

t ® 
* ® 
{+ THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
{+ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, TRIS SOFTWARE OR ANY OTHER © 
COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO.ANY = 
{* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
{* TRANSFERRED. . 
we 

® 

* 

® 

® 

® 

® 

® 

* 

*® 


oe 
ss 


{* 
THE oh oy phe: IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


an 
ss 


+ CORPORATI 

{* DIGITAL ASSUMES NO RESPONSIBI 

¢ SOFTWARE ON EQUIPMENT WHICH | 
® 

{* 


Cee eee eee eee REA A AAA AAA EERE A AAA AAARE REAR AEAEE AAAS 


ITY FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


Author: T. Hastings 

(Previous edit history removed. SBL 11-Nov-1980) 

1-001 = Add copyright notice and change version number. JBS 16-NOV-78 
1-002 = Correct minor errors in the maintenance note. JBS 16-NOV-78 
1-005 - coange reference to ais to be FORMSG. JBS 02-JAN-1979 

Added error numbers ay we ISAM. SBL 09-Feb-1979 

005 = Remove error 58. Change of error 36 and 50. SBL 6-Apr-79 
- Change FORSK -RECSPEERR to "PORSK.. INCRECTYP. SBL bes Lies & 

- Change FORSK_ ayy to FORSK. {acne rene —, per tre 

- Make changes to a oaces wit SBL 8-ma a 

- Rename FORSK_MORONEREC to conte TOOMARREC. SBL 3.  sept-1979 

- Add errors 17-19 for NAMELIST. ~SBL 11-Nov-1980 

- Convert to so. SBL 23-AUG-1982 


ASAAAAAAAAAAAAAS 
_ 
r=) 
z 
iy 


o 


Define short valued symbols of the form FORSK_symbol which are used in calls to 
the FORTRAN error Procedure of the form: 


FORSSSIGNAL (FORSK_error_number) 
which ore chenged fn ante sepit VAX-11 condition values 
of the form FORS umber 
before calling LTSSSIGRAL CFORS. error_number) 


In macros tne symbols may be defined either as .EXTRNs or SFORERR 


ASA AAAAAAAAS 


will define all FORTRAN error numbers. 
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PARARBAASAALASAALAAAASALALAAASELALLALALLELASAAS ESAS REESE SG 
MAINTENANCE NOTE: 
COMSSERRSET TST module (in file COMSETST.B32) contains the F4P/11 


{ 

¢ 

{ compatibility error handler and has a table for all errors. 

; When new error numbers are added that table may need modification. 
{* 
{- 


LARRRBBASASAAASALALASASELESLASLAASASALESASESAS SESS EASE SS 


MODULE SFORERR; 


{ The following messages may not be the actual text: 
{ See FORMSG.MSG for the correct text 


sseaneg 5 dd 


—— 


N EQUALS 24 PREFIX FOR TAG SK, { FORTRAN facility number (STS$u_ FAC_NO) 
NOTFORSPE EQUALS 1 PREFIX FOR TAG SK; { NOT A FORTRAN=SPECIFIC ERR 
{ Used as a catch-all error le 
{ for error other than FORS and MTH$ | 
CONSTANT ( 
SYNERRNAM, { SYNTAX ERROR IN NAMELIST INPUT 
TOOMANV { TOO MANY VALUES IN NAMELIST INPUT 
INVREFVAR’ { INVALID REFERENCE TO VARIABLE IN NAMELIST 
REWERR { REWIND ERROR 
DUPFILSPE , { DUPLICATE FILE SPECIFICATIONS 
INP RECT 00, { INPUT RECORD TOO LONG 
BACERR { BACKSPACE ERROR 
ENDDURREA, { END-OF-FILE DURING READ 
RECNUMOUT, { RECORD NUMBER OUTSIDE RANGE 
OPEDEFREQ, { OPEN OR DEFINEFILE REQU IRED TO SPECIFY DIRECT ACCESS 
TOOMANREC, { TOO MANY RECORDS IN I/O STATEMENT 
CLOERR { CLOSE ERRO 
FILNOTFOU, { FILE NOT FOUND 
EFA { OPEN FAILURE 
MIXFILACC, { MIXED FILE ACCESS MODES 
INVLOGUNI, { INVALID LOGICAL UNIT NUMBER 
ENDFILERR, { ENDFILE ERROR 
UNIALROPE, { UNIT ALREADY 
SEGRECFOR. { SEGMENTED RECORD FORMAT ERROR 
ATTACC { ATTEMPT TO ACCESS NON-EXISTENT RECORD 
INCRECLEN, ‘ INCONSISTENT RECORD LENGT 
ERRDURWRI, ERROR DURING WRITE 
ERRDURREA, { ERROR DURING READ 
RECIO_ OPE, RECURSIVE 1/0 OPERATION 
INSVIRMEM, INSUFFICIENT VIRTUAL MEMORY 
SUCDEV, NO SUCH DEVICE 
F ICNAMSPE, FILE NAME SPECIFICATION ERROR 
INCRECTYP, f INCONSISTENT RECORD TYPE 
KEYVALERR, KEYWORD VALUE ERROR IN OPEN STATEMENT 
INCOPECLO, { INCONSISTENT OPEN/CLOSE PARAMETERS 
WRIREAFIL, { WRITE TO READONLY FILE 


FORERR.SDL;1 16-SEP-1984 16:40: 58. F Page 3 COM! 
INVARGFOR, INVALID ARGUMENT TO 4b RUN-TIME LIBRARY 
INVKEYSPE, INVALID KEY SPECIEICA 
INCKEYCHG, INCONSISTENT KEY CHANGE OR DUPLICATE KEY 
INCFILORG, INCONSISTENT FILE gnee NIZATION 
| SPERECLOC, SPECIFIED RECORD LOCKED 
NO_CU NO CURRENT RECO 
REGRITERR, REWRITE ERROR 
DELERR DELETE ERROR 
UNLERR. UNLOCK ERROR 
FINERR FIND ERROR 
; Unused erro : 
C1$10,.SYN, LIST=DIRECTED 1/0 SYNTAX ERROR ‘ 
INF FORLOO $ INFINITE F oop 
FORVARMIS, FORMAT/VARI TABLE-TYPE, Srenaren 
SYNERRFOR, { SYNTAX ERROR IN FORMA 
OUTCONERR, { OUTPUT powers ian ERROR 
INPCONERR, { INPU RSI RROR 
{ Unused com r 65 
GUTSTAOVE. { OUTPUT STATEMENT OVERFLOWED RECORD 
INPSTAREQ, { INPUT STATEMENT REQUIRED TOO MUCH DATA 
VFEVALERR, { VARIABLE FORMAT EXPRESSION VALUE ERROR 
) EQUALS 17 INCREMENT 1 PREFIX FOR TAG $K; 
{eo 
{ Define arithmetic trap error numbers, even though signaled as SS$_ARITH 
{ Therefore there is no corresponding error message in FORMSG.MDL for these: 
CONSTANT ( 
INTOVF, { INTEGER OVERFLOW 
INTZERDIV, { INTEGER ZERO DIVIDE 
FLOOV { FLO Eee OVERFLOW 
FLOZERDIV, { FLOATING ZERO DIVIDE 
FLOUND, { FLOATING ons ae 
{ Unused err 
BECSTROVE, { 13h ae STRING OVERFLOW 
¥ RREFOUT 4 ARRAY REFERENCE OUTSIDE ARRAY 
) EQUALS 70 INCREMENT 1PREFIX FOR TAG $K; 
{ End of arithmetic trap error codes 
CONSTANT 
ADJARRDIM EQUALS 93 PREFIX FOR TAG $K, { ADJUSTABLE ARRAY DIMENSION ERROR 
MAX_ERR EQUALS 935 PREFIX FOR TAG SK; { maximum error number (NOT AN ERROR!!!) 
END_MODULE SFORERR; 
{ End of file FORERR.SDL 
arial 
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